home *** CD-ROM | disk | FTP | other *** search
/ VisualFX for ImageFX / VisualFX for Image FX 2.adf / Files / SetUp / 02 / 04.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-01-23  |  2.3 KB  |  100 lines
  1. /*
  2.                                  Visual FX
  3.                                     For
  4.                                  Image FX
  5.                                SetUp Script
  6.                            Written By J.L. White
  7.  
  8.                          (C)1997 Merlin's Software
  9.  
  10. */
  11. parse arg Num
  12. options results
  13. address "IMAGEFX.1"
  14.  
  15.  
  16.  
  17.     Gadget.1 = 'Select Direction Of Movement!'
  18.     Gadget.2 = 'X Axis (Right / Left)'
  19.     Gadget.3 = 'X Axis (Left / Right)'
  20.     Gadget.4 = 'Y Axis (Down / Up)'
  21.     Gadget.5 = 'Y Axis (Up / Down)'
  22.     Gadget.6 = 'Z Axis (Shrink Back)'
  23.     ListRequest 6 Gadget
  24.     TurnD = 4
  25.     if result = 2 then TurnD = 0
  26.     if result = 3 then TurnD = 1
  27.     if result = 4 then TurnD = 2
  28.     if result = 5 then TurnD = 3
  29.     if result = 6 then TurnD = 4
  30.  
  31.     Gadget.1 = 'Select Color Or Image To Fade To!'
  32.     Gadget.2 = 'COLOR'
  33.     Gadget.3 = 'IMAGE'
  34.     ListRequest 3 Gadget
  35.     Type = 0
  36.     if result = 2 then Type = 0
  37.     if result = 3 then Type = 1
  38.  
  39.     if Type = 1 then do
  40.         ReDraw On
  41.         LoadBuffer "VFXIFX:Images/Pics/Seamless.Pic" Force
  42.         RequestNotify "Look At Examples For FileName Then Click OK"
  43.  
  44.         RequestFile '"Select File To Use For BackGround!" "VFXIFX:Images/Seamless" ""'
  45.         PicName = result
  46.         ColorPic = 1
  47.         Color = 1
  48.         Scroll = 0
  49.         XOff = 0
  50.         YOff = 0
  51.  
  52.         Gadget.1 = 'Do You Wish To Scroll Image?'
  53.         Gadget.2 = 'Scroll Image'
  54.         Gadget.3 = 'Do NOT Scroll'
  55.         ListRequest 3 Gadget
  56.         if result = 2 then Scroll = 1
  57.         if result = 3 then Scroll = 0
  58.         if Scroll = 1 then do
  59.  
  60.             text1 = '"Move X"'
  61.             text2 = '"Move Y"'
  62.             Gadget.1  = 'SLIDER LE=60 TE=4 WD=150 HT=14 LB='text1' IN=1 LO=-10 HI=10 LV=%-3ld'
  63.             Gadget.2  = 'SLIDER LE=60 TE=22 WD=150 HT=14 LB='text2' IN=1 LO=-10 HI=10 LV=%-3ld'
  64.             Gadget.3 = 'END'
  65.             NewComplexRequest  '"Select X & Y Movements!"' Gadget 250 42
  66.             if rc ~= 0 then do
  67.                 XOff = 0
  68.                 YOff = 0
  69.                 end
  70.             else do
  71.                 XOff = RESULT.1
  72.                 YOff = RESULT.2
  73.                 end
  74.             end
  75.  
  76.         end
  77.     else do
  78.  
  79.         ActiveColor 0
  80.         RequestNotify "Click On Color To Use As BackGround Then Click OK"
  81.         ActiveColor
  82.         Color = result
  83.         ColorPic = 0
  84.         PicName = ""
  85.         Scroll = 0
  86.         XOff = 0
  87.         YOff = 0
  88.         ActiveColor 1
  89.         end
  90.  
  91. call open TempFile,"VFXIFX:TempDrawer/"strip(Num),W
  92. call writeln TempFile,Color
  93. call writeln TempFile,ColorPic
  94. call writeln TempFile,PicName
  95. call writeln TempFile,Scroll
  96. call writeln TempFile,XOff
  97. call writeln TempFile,YOff
  98. call writeln TempFile,TurnD
  99. call close TempFile
  100.